﻿Public Class SocketInfo
    Private M_Sock As Socket

    Public Property Socket() As Socket
        Get
            Return M_Sock
        End Get
        Set(ByVal value As Socket)
            M_Sock = value
            Label4.Text = M_Sock.Text
            Label5.Text = M_Sock.SocketType.ToString
            Label6.Text = M_Sock.SocketDirection.ToString
        End Set
    End Property

    Private Sub SocketInfo_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.Width = 176
        Me.Height = 81
    End Sub
End Class
